Encontrara una serie de macros usted debe analizar que hacen y Asignar el nombre ms adecuado a cada una de ellas?

Sub Macro_0()

    With Selection
        .NumberFormat = "#,###.00"
        .Font.Bold = True
        .Interior.ColorIndex = 36
    End With

End Sub



Sub Macro_1()
Dim celda As Range

    For Each celda In Selection
        celda.Value = Application.WorksheetFunction.Proper(celda.Value)
    Next
    
End Sub



Sub Macro_2()
Dim celda As Range

    For Each celda In Selection
        celda.Value = LCase(celda.Value)
    Next
    
End Sub



Sub Macro_3()
Dim celda As Range

    For Each celda In Selection
        celda.Value = UCase(celda.Value)
    Next 
 
End Sub



Borrar ??????


Sub Macro_4()
Dim i As Long

For i = Selection.Columns.Count To 1 Step -1

        If WorksheetFunction.CountA(Selection.Columns(i)) = 0 Then
            Selection.Columns(i).EntireColumn.Delete
        End If

    Next i
End Sub




Sub Macro_5()

    Columns.EntireColumn.Hidden = False
    Rows.EntireRow.Hidden = False

End Sub


Sub Macro_6()
Dim i As Long

    For i = Selection.Rows.Count To 1 Step -1

        If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
           Selection.Rows(i).EntireRow.Delete
        End If

    Next i

End Sub

